home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Database How-To / Visual Basic 4 Database - How-to (The Waite Group)(1995).iso / login.ba_ / login.ba
Text File  |  1995-07-19  |  2KB  |  35 lines
  1. Attribute VB_Name = "modODBC"
  2. Option Explicit
  3.  
  4. #If Win32 Then
  5. Declare Function GetPrivateProfileInt Lib "kernel32" _
  6.    Alias "GetPrivateProfileIntA" _
  7.    (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
  8.    ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
  9. Declare Function GetPrivateProfileString Lib "kernel32" _
  10.    Alias "GetPrivateProfileStringA" _
  11.    (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
  12.    ByVal lpDefault As String, ByVal lpReturnedString As String, _
  13.    ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  14. Declare Function WritePrivateProfileString Lib "kernel32" _
  15.    Alias "WritePrivateProfileStringA" _
  16.    (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
  17.    lpString As Any, ByVal lplFileName As String) As Integer
  18. Declare Function GetWindowsDirectory Lib "kernel32" _
  19.     Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _
  20.     ByVal nSize As Long) As Long
  21. #Else
  22. Declare Function GetPrivateProfileInt Lib "Kernel" _
  23.    (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
  24.    ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
  25. Declare Function GetPrivateProfileString Lib "Kernel" _
  26.    (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
  27.    ByVal lpDefault As String, ByVal lpReturnedString As String, _
  28.    ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  29. Declare Function WritePrivateProfileString Lib "Kernel" _
  30.    (ByVal lpApplicationName As String, ByVal lpKeyName As String, _
  31.    lpString As Any, ByVal lplFileName As String) As Integer
  32. Declare Function GetWindowsDirectory Lib "Kernel" _
  33.     (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  34. #End If
  35.